##################################################
# DEFINE DICTIONARIES ############################
##################################################
# test dicts
# version 021118
##################################################


other_dicts <- dictionary(list(  
  pauwels = c(
    "*deceit*",
    "*treason*",
    "*betray*",
    "absurd*",
    "arrogant*",
    "promis*",
    "promise*",
    "capitul*",
    "corrupt*",
    "direct",
    "elite*",
    "establishm*",
    "ruling*",
    "caste",
    "class",
    "mafia",
    "freedom_of_expression",
    "undemocratic",
    "particrat*",
    "politic*",
    "propaganda",
    "referend*",
    "regime",
    "shameless",
    "shame*",
    "admit",
    "tradition*",
    "people"
  ), 
  
  gidron =
    c(
      "anti-democratic",
      "anti-grass-roots",
      "aristocrat",
      "authoritarianism",
      "autocratic",
      "bosses",
      "coopt",
      "corrupt system",
      "cronies",
      "desire for power",
      "elite",
      "elitist",
      "eurocracy",
      "eurocrats",
      "euroglobalist",
      "europe of people",
      "exploitation of the masses",
      "exploiters",
      "fewer rights",
      "financiers",
      "foist",
      "greed",
      "greedy for power",
      "imperialism",
      "imperialist",
      "internationalism",
      "internationalist",
      "jewish circles",
      "lackey",
      "less democracy",
      "more union",
      "oligarch",
      "oligarchy",
      "on the backs of",
      "ordinary people",
      "out of touch",
      "pillage",
      "plutocracy",
      "police state",
      "political class",
      "power grab",
      "power play",
      "propaganda",
      "ruling circle",
      "ruling class",
      "subjugate",
      "taken hostage",
      "technocrats",
      "thirst for power",
      "unelected",
      "worship"
    )
  ))
  




